﻿Module Module1

    Sub Main()

        Dim opcion As Decimal = 0
        Console.WriteLine("Escoja por favor entre una de las siguientes 4 opciones (escriba 1 ó 2 ó 3 ó 4: ")

        Console.WriteLine("1. Ver por pantalla el número 1")
        Console.WriteLine("2. Ver por pantalla el número 2")
        Console.WriteLine("3. Ver por pantalla el número 3")
        Console.WriteLine("4. Ver por pantalla el número 4")
        Console.WriteLine("")
        Console.WriteLine("Indique su opción aquí, por favor: ")
        opcion = Console.ReadLine()
        'Usamos estructuras condicionales anidadas para elegir lo que mostrar al usuario.
        If opcion = 1 Then
            Console.WriteLine()
            Console.Write("Se pulsó el número 1.")
            Console.ReadLine()
        ElseIf opcion = 2 Then
            Console.WriteLine()
            Console.Write("Se pulsó el número 2.")
            Console.ReadLine()
        ElseIf opcion = 3 Then
            Console.WriteLine()
            Console.Write("Se pulsó el número 3.")
            Console.ReadLine()
        ElseIf opcion = 4 Then
            Console.WriteLine()
            Console.Write("Se pulsó el número 4.")
            Console.ReadLine()
        Else
            Console.WriteLine()

            Console.WriteLine("Sólo se admiten valores entre 1 y 4. Se reiniciará el programa cuando pulse Intro.")
            Console.ReadLine()
            Console.Clear()
            Main()

        End If

    End Sub


End Module
